unit uGxtTypes;

interface

type
  TErrorInfo = record
    Code: Integer;
    Desc: WideString;
  end;
  PErrorInfo = ^TErrorInfo;

  TFuncCallResult = record
    ErrCode: Integer;
    ErrMsg: WideString;
    AnsiStr: AnsiString;
    WideStr: WideString;
    case Integer of 
      0: (AsBool: Boolean);
      1: (AsInteger: Integer);
      2: (SmsPoint: Integer);
      3: (LocPoint: Integer);
      4: (TtlRecord: Integer);
      5: (NumProcessed: Integer);
      6: (Locked: Boolean);
      7: (GUID: Integer);
  end;
  PFuncCallResult = ^TFuncCallResult;

  TSimpleCallback = procedure(const Output: TFuncCallResult; Param: Pointer);
  
implementation

end.
